home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / gssgrad / gssgrad.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-01  |  2.0 KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   6150
  6.    ClientLeft      =   2970
  7.    ClientTop       =   2250
  8.    ClientWidth     =   8595
  9.    Height          =   6555
  10.    Left            =   2910
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6150
  13.    ScaleWidth      =   8595
  14.    Top             =   1905
  15.    Width           =   8715
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Quit"
  18.       Height          =   615
  19.       Left            =   2400
  20.       TabIndex        =   4
  21.       Top             =   3840
  22.       Width           =   1935
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Left"
  26.       Height          =   375
  27.       Index           =   3
  28.       Left            =   2400
  29.       TabIndex        =   3
  30.       Top             =   2280
  31.       Width           =   1215
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Right"
  35.       Height          =   375
  36.       Index           =   2
  37.       Left            =   2400
  38.       TabIndex        =   2
  39.       Top             =   1680
  40.       Width           =   1215
  41.    End
  42.    Begin CommandButton Command1 
  43.       Caption         =   "Up"
  44.       Height          =   375
  45.       Index           =   1
  46.       Left            =   2400
  47.       TabIndex        =   1
  48.       Top             =   1080
  49.       Width           =   1215
  50.    End
  51.    Begin CommandButton Command1 
  52.       Caption         =   "Down"
  53.       Height          =   375
  54.       Index           =   0
  55.       Left            =   2400
  56.       TabIndex        =   0
  57.       Top             =   600
  58.       Width           =   1215
  59.    End
  60.    Begin Grad GSSGrad1 
  61.       Direction       =   0  'Down
  62.       GradColor       =   &H00FF0000&
  63.       Left            =   1440
  64.       Top             =   1680
  65.    End
  66. Option Explicit
  67. Sub Command1_Click (Index As Integer)
  68. GSSGrad1.Direction = Index
  69. GSSGrad1.Refresh
  70. End Sub
  71. Sub Command2_Click ()
  72. End Sub
  73. Sub Form_Resize ()
  74. GSSGrad1.Refresh
  75. End Sub
  76.